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2) PRAKTIJKVERSLAG 


2.1) OPDRACHTBESCHRIJVING 


A) HET OPERATIONEEL MAKEN VAN HET PDP 8/E COMPUTER SYSTEEM 
DOOR HET SORTEREN VAN DE AANWEZIGE SOFTWARE EN HET 
SCHRIJVEN VAN AANVULLENDE SOFTWARE OM TE KOMEN TOT SEN 
CONFIGURATIErWAARBIJ MEN VANUIT EEN HOGERE PROGRAM- 
MEERTAAL DE AANWEZIGE REAL-TIME MOGELIJKHEDEN KAN BE- 
NUTTEN♦ 

B;> HET INSTRUMENTEEL OPERATIONEEL MAKEN VAN DE ONDER A) 
BESCHREVEN CONFIGURATIE EN HET ONTWERPEN VAN EEN PRO- 
GRAMMA ,DAT DE MOGELIJKHEDEN VAN,HET SYSTEEM GEKOP- 
PELD AAN EEN PRAKTIJKMODEL KAN LATEN ZIEN. 

2.2) INLEIDING 


DE CENTRALE PRAKTIJKSCHOOL VOOR TUINBOUWTECHNIEK EN TECHNOLOGIE 

i2rScri. G ™5^ N DE ZANDLAAN IN EDE *DE SCHOOL PROBEERT NAAST 
THEORIELESSEN VOORAL VEEL PRAKTISCHE PROBLEMEN AAN DE CURSISTEN 
VOOR TjE LEGGEN.DEZE LESSEN WORDEN AAN HET NIVEAU VAN DE CURSIS¬ 
TEN EN HET SOORT ONDERWIJSrDAT ZIJ VOLGEN AANGEPAST. 

MEESTAL ZIJN ER IEDERE WEEK ANDERE GROEPENrMAAR OOK IS ER DE 
MOGELIJKHEID GEDURENDE EEN AANTAL WEKEN EEN OF TWEE DAGEN 
PER WEEK CURSUSSEN TE VOLGEN.NAAST DE LANDBOUW- EN TECHNISCHE 
SCHOLEN ZIJN ER OOK VEEL AANVRAGEN UIT HET BEDRIJFSLEVEN. 

VANDAAR OOKfDAT ER IN DE LOOP DER JAREN EEN ACCENTVERSCHUIVING 
HEEFT PLAATSGEVONDEN IN DE RICHTING VAN DE TECHNOLOGIE. 

H0UDT ECHTER NIET INfDAT DE TAK TUINBOUW ACHTERUITGAATfINTE- 
GENDEELfOOK HIER PROBEERT MEN DE MODERNE ONTWIKKELINGEN BIJ TE 
HOUDENfWAT ONLANGS RESULTEERDE IN HET AANSCHAFFEN VAN EEN 
TUINBOUWCOMPUTER. 

EERDER IS.HET PDP-8/E SYSTEEM OVERGENOMEN UIT DE VEEVOEDERFA- 
BRIEK *D£ VALLEI* UIT BARNEVELD.HET SYSTEEM HEEFT DAAR GEDIEND 
VOOR BESTURING VAN EEN GROOT AANTAL PROCESSENfDIE ZICH DAAR AF- 
SPELEN.DE SOFTWARErDIE DAAR VERANTWOORDELIJK VOOR ISrWAS BIJ DE 
MACHINE GELEVERD IN DE VORM VAN PONSBANDEN EN EEN BIJGEWERKTE 
LISTING.HIERUIT ZIJN WAARDEVOLLE GEGEVENS GEPUT BIJ HET SCHRY- 
VEN VAN DE REAL-TIME OVERLAY t VOORAL VOOR DAT GEDEELTErDAT 
ER VOOR ZORGTfDAT ANALOGE SIGNALEN VAN BUITEN DE MACHINES.V. 

EEN WATERHOOGTE OF STROOMSNELHEIDSIGNAAL) OP DE JUISTE WIJZE 
BEMONSTERD WORDEN. 

™S R J5 M 5 ERTAAL IS GEK0ZEN VOOR SK-BASICfDIE ERG MAK- 
KELIJK TE LEREN IS EN DE MOGELIJKHEID HEEFT OM EIGEN GESCHREVEN 
SUBROUTINES IN DE ASSEMBLERTAAL PAL III IN TE BOUWEN. 

(ZIE HOOFDSTUK 2.3) 

DEZE MOGELIJKHEID WAS EEN VOORWAARDErDAAR HET ENIGE ECHTE PRO- 
BLEEM WAS.DAT 8K-BASIC NIET KAN COMMUNICEREN MET DE REAL-TIME 
ELECTRONICAfDIE BASIC ALS ZODANIG NIET NODIG HEEFT. 

BASIC HERKENT EIGEN GESCHREVEN SUBROUTINES IN ZIJN SYMBOOLTABEL 
ALS MEN OP ADRES 1156 OP VELD 0 HET BEGINADRES VAN DE SUBROUTINE 
ZET. IN STANDAARD BASIC STAAT DAAR HET BEGINADRES VAN DE SUB- 
ROUTINEfDIE 'SYNTAX ERROR* OP DE TERMINAL PRINT. 
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2.3) HE SUBROUTINE UUF 


DE PDP-8/E IN EDE HEEFT 3 GEHEUGENVELDEN VAN IEDER 4K.DIT WIL 
ZEGGENrDAT IEDER GEHEUGENVELD BESTAAT UIT 4*2 * 4096 WOORDEN 

VAN 12 BITS.8K-BASIC HEEFT 2 VELDEN NODIG.ECHTER DE ADRESSEN 
7600-7777 OKTAAL WORDEN NIET DOOR BASIC GEBRUIKT.DEZE' ZIJN GE- 
RESERVEERD VOOR DE RIM EN DE BIN LOADER <ZIE HFDST 3.1) 

DOOR DEZE LOADERS OP VELD 2 TE PLAATSEN WORDT DE MOGELIJKHEID 
GESCHAPEN OM OP DE NIET BENUTTE ADRESSEN VAN VELD 0 EN 1 EIGEN 
GESCHREVEN SUBROUTINES TE PLAATSEN.DAARBIJ MOET GOED IN DE GATEN 
WORDEN GEHOUDEN HOEVEEL RUIMTE MEN BESCHIKBAAR HEEFT.EERST 
DIENT MEN DE EIGEN WENSEN TE INVENTARISEREN EN DIE IN TE PASSEN 
IN DE MOGELIJKHEDEN VAN 8K-BASIC.VOOR EEN MEER GEDETAILLEERD 
OVERZICHT VAN DE MOGELIJKHEDEN VAN DE UUF-SUBROUTINE WORDT VER- 
WEZEN NAAR HET 8K-BASIC MANUAL. 

ALS NU IN BASIC DE OPDRACHT A=UUF(X) WORDT GEGEVEN EN DEZE WORDT 
UITGEVOERDfDAN ZAL BASIC NAAR ONZE ZELF GESCHREVEN SUBROUTINE 
SPRINGEN MET HET GETAL X IN HET 27-BIT»SIGN MAGNITUDE MANTISSA 
FLQATINGPOINT FORMAT VAN BASIC.DIT FORMAT IS SCHEMATISCH ALS 
VOLGT WEER TE GEVEN ♦ 


W00RD1 W00RD2 W00RD3 



HET IS NU RAADZAAM OM EERST ONZE WENSEN TE GAAN INVENTARISEREN 
WE WILLEN VERSCHILLENDE HANDELINGEN LATEN UITVOEREN ZOALS B.V. 

HET BESTUREN VAN DE KLOKrADCrDAC ETC. 

(ADC=ANALOGUE-DIGITAL-CONVERTER 
DAC=DIGITAL-ANALOGUE-CONVERTER) 

HET LIGT NU VOOR DE HAND»DAT HET AAN HET BEGIN VAN DE SUBROUTI¬ 
NE UUF ZODANIG GEORGANISEERD MOET WORDENrDAT VOOR BEPAALDE WAAR- 
DEN VAN X* <IN DE BASIC OPDRACHT A=UUF<X) > BEPAALDE HANDELINGEN 
VERRICHT WORDEN.M.A.W. ALS IN HET BASIC-PROGRAMMA DE OPDRACHT A= 
UUF<1) GEGEVEN WORDT MOET B.V. HANDELING 1 GEBEUREN EN BIJ A= 
UUF<2> MOET HANDELING 2 GEBEUREN ETC. 

ER MOET DUS EEN KEUZEBLOK KOMEN.DIT KAN HET MAKKELIJKST ALS 
ER DAN MET INTEGERE GETALLEN VAN 1 WOORD LENGTE GEREKEND WORDT 
NU IS ER REEDS EEN SUBROUTINE IN BASIC AANWEZIGrDIE VAN HET HIER 
BOVEN BESCHREVEN FORMAT VAN BASIC EEN 12-BIT INTEGER WOORD MAAKT. 
VERVOLGENS SPRINGEN WE NAAR DE GOEDE SUBROUTINE TOE WAARNA WE 
WEER TERUGKEREN NAAR BASIC. 

2.4) DE INTERUPTSERVICE OVERLAY 


BASIC HEEFT ZIJN EIGEN INTERUPTSERVICEROUTINErWAAR WORDT GE- 
KEKEN WELK RANDAPPARAAT BIJ EEN INTERUPT OM AANDACHT VRAAGT. 
EEN KLOKINTERUPT KENT BASIC ECHTER NIET.DIT WAS DE OORZAAKrDAT 
HET BASICPROGRAMMA STOPTE ALS DE KLOK WERD AANGEZET EN WEL OP 
ADRES 6646 OP VELD 0. 
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£fIr-h IGT DAN V00R DE HAND DAAR DAN EEN SPRONGOPDRACHT NAAR ONZE 

HET IS ?r!Jpp Ifr? E IIrr. r ^ AR WE DIE KL0KINTER UPT DAN AFHANDELEN 
nflD Z L» H If R -»S!f T M0GELIJK 0M EEN DIREKTE SPRONGOPDRACHT 
??.S!L NEER TE ZETTEN »DAAR HET STARTADRES VAN ONZE ROUTINE OP EEN 
ANDERE^PAGINA VAN DE VELDINDELING VAN DE MACHINE ZIT (ZIE HFDST 

EEN INDIRECTE * SPRONGOPDRACHT WORDEN EN HIERMEDE 

ijAA^r^r r» CH HET V0LGENriE pRobleem a an: waar staat het adresf 

WAAR INDIRECT HEEN GESPRONGEN MOET WORDEN? BASIC IS NAMELIJK 
Sr H ffbx? ICHT GEPR0GRA MMEERD.DE SITUATIE IS OP TE LOSSEN DOOR 

van de ™teruptserviceroutine VAN BASIC TE-BEKIJKEN. 

BAAp C 7Snfr A rD E ccDlS H I ER IN BINAIRE V0RM Gp PONSBAND BESCHIK- 
BAARfZODAT ER EERST EEN PROGRAMMA IN ASSEMBLER GESCHREVEN 

n?r C S c T rS; R ^ NrDAT DE BINAIRE C0DE UIT DE MACHINE U^LEEST EN 
UITPRINT OP DE TERMINAL.VERVOLGENS IS DEZE LISTING VAN ADRES- 

BLERTAAf E oS A ^?J J ?M7?Su? DE INSTRUCTIES TERUGVERTAALD NAAR ASSEM- 
BLERTAAL OM ENIG INZICHT TE KRIJGEN IN WAT BASIC MET ALLE 
INTERUPTS DOET (ZIE HOOFDSTUK 8)* 

N o,f L ir ,l J T ' DAT 0P ADRES 6666 DE INSTRUCTIE 7640 STAAT <7640= 

SZA CLA = SKIP IF ZERO ACCUMULATOR AND CLEAR AC ) 

t!*™ A 5 RES 6646 DE OPDRACHT JMP I 6666 STAAT»DAN SPRINGT 

srL? A 21L P Ec G EfI! MA NAAR ADRES 7640 f WAAR EEN SPRONGOPDRACHT 
STAAT NAAR DE KLOKINTERUPTOPVANG ROUTINE* 

En?!L2 E i;f,r W . AT GETRUCTE OPLOSSING IS HET NU MOGELIJK OM OP DE 

TINE T fF D 7FTrL° V nc7r E S5! N <A600 " 7600 > EE N INTERUPTOPVANGROU- 
I™ TE ZETTEN * DEZE MAAKT GEBRUIK VAN HET FEITfDAT BASIC ZELF DE 
TOESTANDfZOALS DIE VOORDAT EEN INTERUPT PLAATSVOND^HERSTELT. 

2.5) DEMONSTRATIE REAL-TIME FACILITEIT 


HIERTOE IS EEN KOPPELING TOT STAND GEBRACHT TUSSEN .DE COMPU¬ 
TER EN HET DEMONSTRATIEMODEL NIVEAU- EN FLOWREGELINGfDAT NU 
ALS OP ZICH ZELF STAAND MODEL FUNCTIONEERT MET EEN EIGEN 
ELECTRONISCHE PID-REGELAAR. 

NU I N B S-^3^ I ^f HETSTE “ IJZ1GING MN HET M ° DEL MAAKT 

A) REGELEN ZONDER COMPUTER 

B) REGELEN MET COMPUTERr- ON LINE (SPC) 

„ V — IN LINE (DDC) 

DEZE MOGELIJKHEDEN ZIJN TERUG TE VINDEN IN HET VOLGENDE SCHEMA: 


j a four 




*) 






klEP 




' •! 



Kiep 


PROCES 


£ pc. 



CoMfc*TW ft. 













































ei; 


2.6) ERVARINGEN AAN DE CST 

IN HUN;PRAKTIJKTIJD AAN DE CST HEB IK VELE VOOR MIJZELF NUTTIGE 
ERVARINGEN OPGEDAAN BIJ HET UITVOEREN VAN DE AAN MIJ GEGEVEN 
OPDRACHT.IK HEB IN EEN GOEDE WERKSFEER VERKEERDrWAARBIJ EEN 
UITGEBRpIDE INFORMATIEUITWISSELING HEEFT PLAATSGEVONDEN. 

DE VELE; PROBLEMENrDIE ER WAREN KONDEN MEESTAL OPGELOST 
WORDEN! £>OOR EEN BUNDELING VAN KENNIS VAN DE HEREN DE RAAYr 
BRUGMAN,EN KLOOTWIJK OP ELECTRONISCH GEBIED EN DE MENSEN VAN 
DE TECHNISCHE DIENST BIJ HET FABRICEREN VAN ALLERLEI 
APPARATEN EN SCHAKELINGEN.OP PROGRAMMATISCH GEBIED EN 
OP HET {3EBIED VAN DE WAT MEER GESPECIALISEERDE ELECTRONICA 
WAREN DE ADVIEZEN VAN DE HEER DRIESSEN EN DE MENSEN VAN DE 
ELECTRONISCHE WERKPLAATS VAN DE VAKGROEP MEET-»REGEL- EN 
SYSTEEMTECHNIEK ZEER WAARDEVOL. 

AL DEZE FACTOREN HEBBEN ER TOE BIJGEDRAGEN.DAT DEZE TIJD VOOR 
MIJ ERG LEERZAAM EN SUCCESVQL IS GEWEEST. 


- 5 - 














A) STROOhSCHEhA'S REAL-HttE OVERLAY 


Velcj <fi\ 

octree jboo: 

\ 

’ 

1 | 

i I 


SubMJTtVE L/UF 


lUdHOLlTlVE Fikfa&A 

(oHTtrxtu tiohj/a/c. tv/**r\ 
toanAT t/A*/ bAMC. tKf 1 
ct/i 6iT /A/r£$e’Ai*/ooAdi 

< 

✓ 

AC ~ 

0 

— 1 


: Ac. a 


r 

UVELP^ : 

= flc. 



AC « UVELDfZjj 


) is TE vu/oev 

ft&J. t 


/ AC ms ^CCL/WULflroR 


/SAVE. UUF[x) \N UvEU>(j6 



OlSAfcLE CLOCK 


hO 


AC^7fc3v£_ivv?_|oo'°) 


.6. 
































/)C=^Oi4 [= w?L@ 


CHArrt^E DATA fl£LO-»2 

CH*»Mie ivimwcTio/V 
r\£LO _* 2. 


1&IUTIWE EXlT-UUf •. 



* [ 4^ftouT«t 6t * 

I v*w ftnvc 


AC - <fi 


|flt = LtvBLD^ I 

-=p- 


*C& » fiC 

—r - 


Iro""! 

iwu^ wm« tv»?ie _J 















































iv Basic W6RDE*/ flat' Ho^bli/kb. ih/r£CiupT£V tf^HwoeiD zdals 


mtTypE Pu^cH J UfeVBoRO CTC. kC fy/f ECHTER kLOUlwettyT 

"ZOVKT E><ASiC zou IXOxptW Op.LOCATlE 66 y£ jV/Wft EEA/ fy/U 7 6f>0*AcH' 


STrtflT Vpoft HE-T^Ei^c., P<AT Ef* e£fi/veoR fiOS/c 6V&£UeMD !*re*upT tu)riT. 
CfeoR wu hieg eev or* c*rr ?6ve & mausa/ 

'WrtARQ^' ^€/iAA«tr w ^ *£r «r/r, mt a b tuenof^'nTRocrue. 

6?f) ctft *f* code yf>xo ** W6T ftt (uoic /vtf* ct P T 

cp l£ V'flA^CA/ ^ozj) 




















































itC WT. SERVICE ttoWTWE 

””1 


fit HMDBUVq V00« 















































I M£' 


© 


1 ^c__4. fa U 

luvEZ-D^. - na I 

1 

I ac - UwTldI 1 


/ UU?L*) ttLACjtV tv UVlLLDl. 




iuutfawrn-Q) 


w(ioj< wl*V uuf[fs) -0 


I AC. — t o' 1 * 1 ~i 



W/iojc L/Mfr) £ 


- \o 
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r\ C. e l4\Z£L 02. 


| AQ - loo 


Roreefl. EcW 

PL**!* WtiMuvki 


r—J 

|no^ci . ac | 



© 


pflc 1 


/lc* UKJ&.UO X 

l 


|«c. — ieo 

, I - 

| CLCAQ UfrtC 


norfeEft 


f 


\hOfiC-X sr he* I 

$ 


<^A) 

|rtc , CIOQC i. [ 


<|C C HP(IC£ 

_ T- 


ior t^v 
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4.1) SIGNAALBEMONSTERING 



SMST : SOM AANTAL KANALEN <«4> 

ZMST t TELLER AANTAL KANALEN 

MAINT l SOM AANTAL SAMPLES <<=4> 
i ZMAINT J TELLER AANTAL SAMPLES 


WACHTLUjS 


DE METINGEN MOETEN IEDERE KEER AAN HET BEGIN VAN IEDERE KLOKPULS 
BEGINNEN OM EEN GOEDE UITMIDDELING VAN DE METINGEN IN DE TIJD 
MOGELIJK TE MAKEN (ZIE BOVENSTAANDE FIGUUR ) 

DIT WORDT BEREIKT DOOR IN DE INTERUPTSERVICEROUTINE IEDERE KEER 
EEN VLAGGETJE OP TE ZETTEN WANNEER ER EEN KLOKPULS KOMT. 

DIT VLAGGETJE WORDT IN EEN WACHTLUS OP VELD 0 BEKEKEN OMDAT DE 
MOGELIJKHEID TOT INTERUPT IN DE ADC ROUTINE OP VELD 2 NIET BE- 
STAAT♦ZODRA HET VLAGGETJE VERANDERDrWORDT HET PROGRAMMA VOORT- 



k veto X 


14 






































SE/1ov/STg>ft£ V 

































































































uue-t 3 »<*) 






UuC'(**L) 

9 

r 



































5.2> AANSLUITINGEN STEKKER 6 


VOORAANZICHT COMPUTER 


A1 


STEKKER 7 



B 

A2 

B 




\4L 


KAN. 1 MULTIPLEXER 0-20 MA INGANG 


KAN. 2 MULTIPLEXER 0-20 MA INGANG 


B3 X 24 V VOEDING VAN RELAIS R1 EN R2 
A3 * R1 

A4 X R2 .... . . 


A5 


A 6 


0-20 MA UITGANG (DACO-OMVORMER) 


BS 


0-20 MA UITGANG <DAC1-0MV0RMER> 


B 6 


AO t DACO 
A9 $ DAC 1 
BO t GROUND 


19 





































I 








*5)S 


I 


rv 


|5*3) REKENVERSTERKERS VOOR ADC-INGANG 
A) bktaavp f sw/e 


. 1 > ' 


R *= <»6.a J1 





Beettickung eiehe zufceherigen Stromlaufplon 


—?o- 


1 






| 

indtt 1 And+rung 

1C-7 1 1 r- L._. "1- 1 


Nome 

Ihdtt 

Anderung 

tog 

Nome 1 


r*r?A 
. . * x 

B.iuqrsclfschaft fOr 
elcklnscho Anlogon 

Ah 































































5M> SCHEMA OMVORMER O-IOV NAAR 4-20 MA 








It 
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6) OVERZICHT REAL-TIME INSTRUCTIES 


o 


o 


AANROEP IN BASIC PROGRAMMAt 


9 


HANDELING: 


UUF(0> 9 
UUF(l) f 


UUF<2) 
UUF<3) 
UUF <4) 
UUF(5) 
UUF(A) 


UUF(10) 9 
UUF(11) 9 
UUF<12) 9 
UUF(13) 9 

UUF(14) 9 
UUF<15) 9 
UUF(16) 9 
UUF(17) 9 

UUF(100)9 
UUF(101)9 
UUF(102)9 




UUF(118)9 
UUF(119)9 
UUF(120)9 

UUF(200)9 
UUF (201) 9‘ 
UUF(202)9 




UUF(218)9 
UUF(219)9 
UUF(220)9 

UUF(300)9 
UUF(30l!> 9 
UUF(302)9 


STOP KLOKFUNKTIE 

SSomS m L ER T EEN 1NTERVAL VAN 1 SEC ’ CLEAR 

IDEM MET INTERVAL 0.5 SECONDEN. 

CLEAR SECONDEN TELLER 
LEES SECONDEN TELLER 

KLOK AANrINTERVAL 5 SECrCLEAR SEC. TELLER 
BEMONSTER A KANALEN ADC 

LEES KANAAL 0 ADC 
LEES KANAAL 1 ADC 
LEES KANAAL 2 ADC 
LEES KANAAL 3 ADC 


BESCHIKBAAR VOOR DE A VOLGENDE KANALEN VAN ADC 


DAC 

DAC 

DAC 


DAC 

DAC 

DAC 

DAC 

DAC 

DAC 


DAC 

DAC 

DAC 


l 0 VOLT UITSTURING 
l 0.5 VOLT UITSTURING 
* 1 VOLT UITSTURING 
I 

l«lt 

I 

I 

I 

t 9 VOLT UITSTURING 
: 9.5 VOLT UITSTURING 
J 10 VOLT UITSTURING 

J 0 VOLT UITSTURING 
J 0.5 VOLT UITSTURING 
VOLT UITSTURING 

L 

» 

I 

VOLT UITSTURING 
VOLT UITSTURING 
VOLT UITSTURING 


: 1 


9 

9.5 

10 


READCONTACT R1 EN R2 ONTKRACHTIGD 
*t R1 BEKRACHTIGD 

*» R2 »r 


£ N ,s? LLE ANDERE GEVALLEN KRIJGT UUF(X) DE WAARDE 4095 (-1) BIJ 
TERUGKEER NAAR HET ORIGINELE BASIC. 
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0002 
^646 
1156 

7600 

7601 

7602 

7603 

7604 

7605 

7606 

7607 

7610 

7611 

7612 
, 7613 

7614 

7615 

7616 
617 

/620 
‘ 7621 

7622 

7623 

7624 

7625 

7626 

7627 

7630 

7631 

7632 

7633 

7634 

7635 

7636 

7637 

7640 

7641 

7642 

7643 

7644 

7645 

7646 

7647 


?) REAL.Tttie cveiLfty 

; / 

VELD 0 l UUF- + INTERRUPT SERVICE OVERLAY 

/ 

AC3-16 

AN0RM=4600 , 

BEGFIX=3762 

CAF=6007 

CLDI=6132 

CLEI=6131 

CLSK=6133 

FIX=4744 

SPL=6102 

/ 


FIELD 0 
/ 

*2 

7705 

*6646 

5666 

*1156 

7600 

*7600 
0000 UUFr 
4673 
7200 
1016 
3274 
1274 
7450 
5236 
1303 
7450 
5241 
1303 
7450 

5243 
1303 
7450 
5246 
1303 
7450 
5253 
1303 
7450 
5262 
6002 
6221 
6222 
4675 
6001 
3274 
5264 
6132 CLOCKOt 
5264 

5330 ENTRY» 
1277 CLOCK1» 

5244 

1276 CL0CK2* 

3301 CLCKONr 
3304 

3302 CL0CK3* 

6171 


SERVE 

5666 

UUF 

0 

JMS I IFIX 
CLA 

TAD AC3 
DCA UVELDO 
TAD UVELDO 
SNA 

JMP CLOCKO 
TAD TM1 
SNA 

JMP CLOCK1 
TAD TM1 
SNA 

JMP CL0CK2 
TAD TM1 
SNA 

JMP CL0CK3 
TAD TM1 
SNA 

JMP CL0CK4 
TAD TM1 
SNA 

JMP CLOCKS 
I OF 

CDF 20 
CIF 20 
JMS I IUUF1 
ION 

DCA UVELDO 
JMP EXIT1 
CLDI 

JMP EXIT1 
JMP ENTRY1 
TAD T1SEC 
JMP CLCKON 
TAD T05SEC 
DCA STEPS 
DCA PERMIT 
DCA CLTEL 
ri ft 



/MAKE UUF(X) 12 BIT INTEGER 

/INTEGER UUF(X) IN AC 
/UUF(X) IN UVELDO 

/ UUF(O) 

/ UUF(1) 

/UUF(2) 

/ UUF(3) 

/ UUF<4> 

* 

/ UUF < 5) 

/NAAR VELD 2 

/DISABLE CLOCKFUNCTION 

/CLOCKINTERVAL 0*5 SEC. 


/CLEAR SEC. TELLER 

/rwAPi r ri nrKruiorTTnw 


















7651 

7652 

7653 

7654 

7655 

7656 

7657 

7660 

7661 

7662 

7663 

7664 

7665 

7666 

7667 

7670 

7671 

7672 

7673 

7674 

7675 

7676 
" 7 677 

700 

7701 

7702 

7703 

7704 


7705 

7706 

7707 

7710 

7711 

7712 

7713 

7714 
"*715 
. 716 
7717 

7720 

7721 

7722 

7723 

7724 

7725 

7726 

7727 

7730 

7731 

7732 

7733 

7734 

7735 
IC 

7736 

7737 

7740 

7741 

7742 

7743 


3274 


DCA UVELDO 

5264 


JMP EXIT1 

1304 

CL0CK4 f 

TAD PERMIT 

7450 


SNA 

5253 


JMP CL0CK4 

7200 


CLA 

130^ 


TAD CLTEL 

3274 


DCA UVELDO 

5264 


JMP EXIT1 

1300 

CLOCKS» 

TAD T5SEC 

5244 


JMP CLCKON 

4671 

EXITIf 

JMS I IBEG 

1274 


TAD UVELDO 

3016 


DCA AC3 

4672 


JMS I INORM 

5600 


JMP I UUF 

3762 

IBEGf 

BEGFIX 

4600 

INORMf 

ANORM 

4744 

IFIXf 

FIX 

0000 

UVELDOf 

0 

0200 

IUUF1 r 

UUF1 

7716 

TOSSECf 

-62 

7634 

TISECf 

“144 

7014 

T5SECf 

-764 

0000 

STEPS f 

0 

0000 

CLTEL f 

0 

7777 

TM1 f 

“1 

0000 

PERMITf 

0 


r 

/ 

— - - — 


/INTERUPT 

/ 

SERVICE OVERLAY 

6102 

SERVE f 

SPL 

5750 


JMP I B6600 

7300 

POWERFf 

CLA CLL 

1317 


TAD RSTADR 

3002 * 


DCA 2 

1316 ‘ 


TAD RESTRT 

3000 


DCA 0 

6007 


CAF 

7402 


HLT 

5402 

RESTRTf 

JMP I 2 

7720 

RSTADRf 

POWRON 

6002 

POWRONf. 

IOF 


-TAD iERVE— 

3002 

’fcooZ 

. _ DCA 2 - 


CDF 20- <>?F 

622*2 t*** 

11 fell | 

CIF 20 

JMO -i—IREADY 

,5751" 

IREADYf 1 

JMP I BSTART 

1000 

READY 

6133 

ENTRYIf 

CLSK 

7402 


HLT 

7240 


CLA CMA 


/CLEAR UVELDO 


/PERMITFLAG RAISED? 
/YES 


/INITIALIZE FAC 
/UVALUE IN AC 
/RETURN UVALUE IN AC3 
/NORMALIZE FAC 
' /RETURN 


/-50 DECIMAAL 
/“100DECIMAAL 
/-500DECIMAAL 


/SKIP IF POWER LOW 


/CLEAR AC EN LINK 
/RESTART ADRES IN AC 
/RESTART ADRES OP LOCATIE 2 
/STARTINSTRUCTION IN AC 
/ ft OP LOCATIE 0 

/CLEAR ALL FLAGS 
/STOP 


/INTERRUPT OFF 
/STRT. ADR. JNT SERVE IN AC 
/ tt tt , IN LOCATIE 2 


Ct>f it 

$IA<> XlftE 

/KLOKINTERUPT? 

/NEEfDAN ONBEKEND INTERUPT. 


3346 

2345 

5747 

* 1301 

' 3345 
2302 
7000 
7040 
3304 


DCA ADCFLG 
ISZ CLINTV 

JMP I B6744 /NAAR AFSLUITROUTINE VAN BA! 

TAD STEPS 
DCA CLINTV 

ISZ CLTEL /VERHOOG SEC. TELLER 

NOP 

CMA 

DCA PERMIT /ZET PERMIT FLAG 


-2 

























7745 

0000 

/ 

CLINTVr 

0 

7746 

0000 

ADCFLGr 

0 

7747 

6744 

B6744» 

6744 

7750 

6600 

B6600 f 

6600 

7751 

6725 

J BSTART» 

6725 

7752 

0000 

j WACHT f 

0 

7753 

7200 

I 

CLA 

7754 

6001 


ION 

7755 

3346 


DCA ADCFLG 

7756 

1346 

WACHT1f 

TAD ADCFLG 

7757 

7450 


SNA 

7760 

5356 


JMP WACHT1 

7761 

6002 


IOF 

7762 

6221 


CDF 20 

7763 

6222 


CIF 20 

7764 

5752 i 


JMP I WACHT 


7? oSr i 

/ 

/ 



> 

/ VELD 2 t DACOrDAClrADCSMF 


! 

i 

i 

1 

/ 

/ 

I0T=6000 

/ 


0200 

1 

0000 

FIELD 2 
/ 

*200 

UUF1» 

0 

0201 

1255 


TAD TO 

0202 

7450 


SNA 

0203 

5340 


JMP ADCSMP 

0204 

1256 


TAD TM6 

0205 

3264 


DCA UVELD2 

0206 

1264 


TAD UVELD2 

0207 

1260 


TAD TM? 

0210 

7510 


SPA 

0211 

5244 

1 

JMP EXIT 

0212 

1257 


TAD TM10 

0213 

7510 


SPA 

0214 

5315 


JMP ADC 

0215 

1262 


TAD TM83 

0216 

7510 


SPA 

0217 

5244 


JMP EXIT 

0220 

1261 


TAD TM20 

0221 

7510 


SPA 

0222 

5265 


JMP DACO 

0223 

1263 


TAD TM80 

0224 

7510 


SPA 

0225 

5244 


JMP EXIT 

0226 

1261 


TAD TM20 

0227 

7510 


SPA 

0230 

5277 


JMP DAC1 

0231 

1263 


TAD TM80 

0232 

7510 


SPA 

0233 

5244 


JMP EXIT 

0234 

7450 


SNA 

0235 

5376 


JMP I0T2 

0236 

1255 


TAD TO 

0237 

>450 


SNA 

0240 

5375 


JMP I0T1 

0241 

1255 


TAD TO 

0242 

7450 


SNA 

0243 

5374 


JMP IOTT 

0244 

7200 

EXIT» 

CLA 


/IS ADCFLAG 
/JA 


0 ? 


/ UUF<6) 


/UUF < 6)<UUF(X)<UUF(10) 

/ UUF(10)<UUF(X)<UUF(17) 

/ UUF <17XUUF<XXUUF< 100) 

/ UUF <100XUUF<XXUUF< 120) 

/ UUF <120XUUF<XXUUF< 200, 

/UUF < 200)<UUF< X)<UUF< 220) 

/UUF < 220)<UUF< X)<UUF < 300) 
/UUF<300) 

/UUF<301) 

/UUF<302) 





















0245 

0246 

0247 

0250 

0251 

0252 

0253 

0254 

0255 

0256 

0257 

0260 

0261 

0262 

0263 

0264 

0265 

0266 

267 

0270 

0271 

0272 

0273 

0274 

0275 

0276 

0277 

0300 

0301 

0302 

0303 

0304 

0305 

0306 

0307 

0310 

0311 

312 

0313 

0314 

0315 

0316 

0317 

0320 

0321 

0322 

0323 

0324 

0325 

0326 

0327 

0330 

0331 

0332 

0333 

0774 


1255 


TAI' TO 

3264 


DCA UVELD2 

7200 

UFEXIT r 

CLA 

1264 


TAD UVELD2 

6211 


CDF 10 

6202 


CIF 00 

7000 


NOP 

5600 


JMP I UUF1 

7777 

TOf 

. -1 

0006 

TM6r 

. 6 

7770 

TM10» 

-10 

7766 

TM9r 

7766 

7753 

TM20r 

7753 

7656 

TM83* 

7656 

7661 

TM80» 

7661 

0000 

UVELD2r 

0 


/ 



/ 



/SUBROUTINE 

/ 

/ 

DAC 

7200 

DACOf 

CLA 

1264 


TAD UVELD2 

1313 

__ 

— TAD T100 

7100 


CLL 

7004 


RAL 

3311 


DCA MDAC1 

1311 

-DACUIT t 

TAD MDAC1 

1312 

- 

TAD MDAC2 

6744 

__ __ _ . __ 

IOT 744 

5247 


JMP UFEXIT 

7200 

DAC1 1 

CLA 

1264 


TAD UVELD2 

1314 


TAD T200 

7100 


CLL 

7006 


RTL 

7006 


RTL 

7006 


RTL 

7004 


RAL 

3312 


DCA MDAC2 

5273 


JMP DACUIT 

0000 

MDAClf 

0 

0000 

MDAC2f 

0 

7634 

TIOOf 

-144 

7470 

T200» 

/ 

/ 

-310 


/ SUBROUTINE 
/ 

/ 

ADC 

0000 

ADCr 

0 

7200 


CLA 

1264 


TAD UVELD2 

1260 


TAD TM9 

1327 


TAD TABEL 

3326 


DCA KADRES 

1726 


TAD I KADRES 

3264 


DCA UVELD2 

5247 


JMP UFEXIT 

0000 

KADRES* 

0 

0330 

TABELr 

TABELO 

0000 

TABELOr 

0 

0000 


0 

0000 


0 

0000 


0 

r>r>pp 


0 


/-I IN UVALUE 

/NAAR VELD 0 


/ TREK 100 ER VAN AF _ 
/ EEN PLAATS NAAR LINKS 


/ TREK 200 ERVAN AF 


/-100 DECIMAAL 
/-200 DECIMAAL 


/ADRES KANAALNR* BEKEND 















0335 0000 

0336 0000 

0337 0000 


0353 

0354 

0355 

0356 

357 

0360 

0361 

0362 

0363 

0364 

0365 

0366 

0367 

0370 

0371 

0372 

0373 


/SUBROUTINE ADCMAIN 
/ 

/ 

0340 7300 ADCSMP* 

0341 1372 

0342 3771 

0343 4770 

0344 4357 

0345 4766 

0346 4765 

0347 4357 

0350 4766 

0351 4765 


CLA CLL 
TAD T4 

OCA I IDELER 
JMS I CLEARO 
JMS WACHT3 
JMS I MEET 
JMS I MIDDEL 
JMS WACHT3 
JMS I MEET 
JMS I MIDDEL 


1373 

3771 

4765 

5247 

0000 

6201 

6202 

4764 

5757 

7752 

0600 

0402 

0517 

0457 

0653 

7776 

7777 


WACHT3i 


TAD T2 

DCA I IDELER 
JMS I MIDDEL 
JMP UFEXIT 
0 

CDF 00 

CIF 00 

JMS I IWACHT 

JMP I WACHT3 

WACHT 

MUB 

METING 

ESPZSP 

CLRESP 

T 

7776 

7777 


0374 

7001 

IOTT * 

0375 

7001 

I0T1 * 

0376 

6764 

I0T2* 

377 

5244 



0400 

0401 

0402 

0403 

0404 

0405 

0406 

0407 


7774 

0000 

0000 

'4213 

7200 

1200 

3201 

4225 


2261 


IWACHTf 
MIDDEL* 

MEET * 

CHANGE* 

CLEARO* 

IDELER* 

T4* 

T2* 

/ 

/ RELAISAANROEP STEKKER 1 
‘ / 

IAC 
IAC 

IOT 764 
JMP EXIT 

/ 

/SUBROUTINE ADCSAMPLE 
/ 

/ 

ADCL=6530 

ADLM=6531 

ADST=6532 

ADRB=6533 

ADSK=6534 

/ 

*400 

/ 

MAINT* 7774 

ZMAINT * 0 

METING* o 

JMS CLEAR1 
CLA 

TAD MAINT 
DCA ZMAINT 
JMS SAMPLE 

tsz rn*rwT 


/CLEAR ESP 

/WACHT OP STARTSEIN 

/DOE 4 SAMPLES 

/MIDDEL DEZE 

/WACHT OP 2E STARTSEIN 

/DOE WEER 4 SAMPLES 

/MIDDEL DEZE 


/DELEN DOOR 2 


/READCONTACT A2 
/READCONTACT A1 


/AANTAL SAMPLES 

/CLEAR HULPTABEL 
/AANTAL SAMPLES 
/BEMONSTEREN 


















0411 

5207 



JMP.-2 

/4 SAMPLES 

0412 

5602 



JMP I METING 


0413 

0000 


CLEAR1 t 

0 


0414 

1271 



TAD SMST 


0415 

3273 



DCA ZMST 


0416 

1272 



TAD AZSP 

.... .L__-.. -.- — - 

0417 

3306 



DCA ZZSP 


0420 

3706 



DCA I ZZSP 


0421 

2306 



I£Z ZZSP 


0422 

2273 



I,SZ ZMST 


0423 

5220 



JMP.-3 


0424 

5613 



JMP I CLEAR1 


0425 

0000 


SAMPLE» 

0 


0426 

6530 



ADCL 

/CLEAR ALL A/D FLAGS 

0427 

7300 



CLA CLL 


0430 

1271 



TAD SMST 

'/AANTAL MEETPUNTEN 

0431 

3273 



DCA ZMST 

' 

0432 

1272 



TAD AZSP 

/BEGINADRES HULPTABEL 

0433 

3306 



DCA ZZSP 


0434 

1275 



TAD AKN 

/BEGINADRES KANAAL 0 

0435 

3274 



DCA ZKN 


0436 

1674 


SAMPL1 t , 

TAD I ZKN 


0437 

6531 



ADLM 

/KAN NR. NAAR MULTIPLEXER 

0440 

6532 

. . . . . . . . 

ADST 

/START A/D OMZETTING 

0441 

7200 


CLA 


0442 

6534 


ADSK 

/FLAG? 

0443 

5242 


JMP.-l 


0444 

6533 


ADRB 

/READ A/D BUFFER 

0445 

7500 


' SMA 


0446 

5250 


JMP.+2 

....... . . .. . 

0447 

7200 


CLA 


0450 

1706 


TAD I ZZSP 


0451 

3706 


DCA I ZZSP 


0452 

2274 


ISZ ZKN 


0453 

2306 


ISZ ZZSP 


0454 

2273 


ISZ ZMST 


0455 

5236 


JMP SAMPL1 


0456 

5625 

i 

JMP I SAMPLE 


0457 

0000 

CLRESPr 

0 


0460 

1716 


TAD I YAESP 


0461 

3340 


DCA ZESP1 


0462 

1271 


TAD SMST 


0463 

3273 


DCA ZMST 


0464 

3740 

CLESPOf 

DCA I ZESP1 


0465 

2340 


ISZ ZESP1 


0466 

2273 


ISZ ZMST 


0467 

5264 


JMP CLESPO 

# 

0470 

5657 

_ 

JMP I CLRESP 

* 

0471 

7774 

SMST t 

7774 

/AANTAL MEETPLAATSEN 

0472 

0507 

AZSPr 

ZSP 


0473 

0000 

ZMSTr 

0 

/TELLER MEETPLAATSEN 

0474 

0000 

ZKNr 

0 

/POINTER TABEL 

0475 

0476 

AKNr 

KN 

/BEGINADRES KANAAL 0 

0476 

0000 

KN» 

0000 

/KANAAL NR OJ 

0477 

0001 


0001 


0500 

0002 


0002 


0501 

0003 


0003 


0502 

0004 


0004 


0503 

0005 


0005 


0504 

0006 


0006 


0505 

4)007 


0007 


0506 

0000 

ZZSPf 

0 


0507 

0000 

ZSP r 

0 

/HULPTABEL 

0510 

0000 


0 


0511 

0000 


0 


0517 

onnn 


0 



- 2a - 








0513 

0000. 


0 




0514 

0000 


0 




0515 

oooo! 


0 




0516 

0327 

YAESP» 

TABEL 




0517 

0000; 

ESPZSPf 

0 




0520 

7200 


CLA 



~~ . .._ _ 

0521 

1272| 


TAD AZSP 




0522 

3306 


DCA ZZSP 




0523 

1716 


TAD I YAESP 




0524 

3340 


DCA ZESP1 




0525 

1271 


TAD SMST 




0526 

3273 


DCA ZMST 




0527 

1740 

ZSPINr 

TAD I ZESP1 




0530 

3706 


DCA I ZZSP 




0531 

3740 


DCA I ZESP1 

| 



0532 

2340! 


ISZ ZESP1 




0533 

2306 


ISZ ZZSP 




0534 

2273 


ISZ ZMST 

_ . 



0535 

5327 


JMP ZSPIN 




0536 

7000 


NOP 




0537 

5717 


JMP I ESPZSP 




0540 

0000 

ZESP1 t 
/ 

0 




1 


/BER* GEM* 
/ 

WAARDE 





*60 0 
/ 


0600 

0000 

MWBf 

0 


0601 

7300 


CLA CLL 


0602 

3250 


DCA USP 


0603 

1661 


TAD I YAZSP 


0604 

3257 


DCA ZZSP1 

/BEGINADRES HULPTABEL 

0605 

1662 


TAD I YSMST 

/AANTAL MEETKANALEN 

0606 

3260 


DCA ZMST1 


0607 

1663 


TAD I AESP 

/BEGINADRES RESULT.TABEL 

0610 

3256 


DCA ZESP 

’ 

0611 

7000 

MWB0» 

NOP 


0612 

1253 

» 

TAD T 


0613 

3254 

t 

DCA ZT 

/TELLER AANTAL DELINGEN 

0614 

7300 


CLA CLL 


0615 

1657 


TAD I ZZSP1 


0616 

7010 

MWBIf 

PAR 

/DELEN 

0617 

7430 


SZL 


0620 

5232 


JMP MUB3 

/REST BEKIJKEN 

0621 

2254 

MWB2f 

ISZ ZT 

/DELINGTELLER +1 

0622 

5216 


JMP MWB1 


0623 

1656 


TAD I ZESP 

t 

0624 

3656 


DCA I ZESP 

t 

0625 

2256 


ISZ ZESP 


0626 

2257 


ISZ ZZSP1 


0627 

2260 


ISZ ZMST1 


0630 

5211 


JMP MWBO 

/VOLGENDE KANAAL 

0631 

5600 


JMP I MWB 


0632 

7100 

MWB3 r 

CLL 


0633 

3251 


DCA MSP 


0634 

1250 


TAD USP 


0635 

1255 


TAD M5000 


0636 

7430 


SZL 


0637 

5243 


JMP MWB4 


0640 

< 3250 


DCA USP 

1 . - v - • 

0641 

< 1251 


TAD MSP 


0642 

5221 


JMP MUB2 


0643 

7300 

MWB4 r 

CLA CLL 


0644 

3250 


DCA USP 

/AFRONDEN 

0645 

1251 


TAD MSP 


OAA i 

yr\n i 


I AC 





-7 „ 

* 














0647 

5221 

/ 

USPr 


JHF MWB2 

0650 

0000 


0 

0651 

0000 

MSP» 


0 

0652 

0000 

VZSPr 

i 

0 

0653 

7776 

T 9 

i 

i 

7776 

0654 

0000 

ZT r 

1 

0 

0655 

5000 

M5000, 

j 

5000 

0656 

0000 

ZESPr 

i 

0 • 

0657 

0000 

ZZSP1» 

1 

0 

0660 

0000 

ZMST1 f 


0 

0661 

0472 

YAZSPr 


AZSP 

0662 

0471 

YSMST 9 


SMST 

0663 

0327 

AESPr 

*1000 

/ 

l 

TABEL 

4272 


JMS 

TYPE 


1004 

1314 


TAD 

ASCIP 

1005 

4272 


JMS 

TYPE 

1006 

1330 


TAD 

ASCIS 

1007 

4272 


JMS 

TYPE 

1010 

1327 


TAD 

ASCIT 

1011 

4272 

... . .. 

JMS 

TYPE -- - 

1012 

1316 


TAD 

ASCIA 

1013 

4272 


JMS 

TYPE 

1014 

1325 


TAD 

ASCIR 

1015 

4272 

- 

JMS 

TYPE 

1016 

1327 


TAD 

ASCIT 

1017 

4272 


JMS 

TYPE 

1020 

1320 


TAD 

ASCIE 

1021 

4272 


JMS 

TYPE 

1022 

1323 


TAD 

ASCIN 

1023 

4272 


JMS 

TYPE 

1024 

1331 


TAD 

SPACE 

1025 

4272 


JMS 

TYPE 

1026 

1321 


TAD 

ASCIG 

1027 

4272 

‘ 

JMS 

TYPE 

1030 

1320 

i 

TAD 

ASCIE 

1031 

4272 


JMS 

TYPE 

1032 

1306 


TAD 

ASCIL 

1033 

4272 


JMS 

TYPE 

1034 

1326 


TAD 

ASCIU 

1035 

4272 


JMS 

TYPE 

1036 

1313 


TAD 

ASCIK 

1037 

4272 


JMS 

TYPE 

1040 

1327 


TAD 

ASCIT 

1041 

4272 


JMS 

TYPE 

1042 

4300 


JMS 

CRLF 

1043 

2315 

L00P2? 

1SZ 

VIER 

1044 

1045 

5253 

7200 


JMP 

CLA 

READY2 

1046 

1307 


TAD 

ASCIII 

1047 

4272 


JMS 

TYPE 

1050 

5243 


JMP 

L00P2 

1051 

4300 


JMS 

CRLF 

1052 

4300 


JMS 

CRLF 

1053 

1325 

READY2» 

TAD 

ASCIR 

1054 

4272 


JMS 

TYPE 

1055 

•1320 


TAD 

ASCIE 

1056 

4272 


JMS 

TYPE 

1057 

1316 


TAD 

ASCIA 

1060 

4272 


JMS 

TYPE 

1061 

1317 


TAD 

ASCID 

1062 

4272 


JMS 

TYPE 

i 

nn 


taf 

ACT T Y 


/OPSLAG 

/DELER 4! 
/TELLER 















427 2 

1065 4300 

1066 bio* 

1067 630G loo? 

1070 5671I 


1071 

6725 

STARTl 


j 

/ 

1072 

OOOOj 

TYPE* 

1073 

6041 j 


1074 

52731 


1075 

6046 


1076 

7200, 


1077 

5672; 


1100 

OOOOi 

CRLF* 

1101 

1311! 


1102 

4272} 


1103 

1310’ 


1104 

4272 


1105 

5700; 


1106 

0314 

ASCIL* 

1107 

0241* 

ASCIII 

1110 

0212! 

K212* 

1111 

0215 

K215* 

1112 

0331? 

ASCIY* 

1113 

0313 

ASCIK* 

1114 

0320 

ASCIP, 

1115 

7773 

VIER, 


1 

/ . 



/ . 

1116 

0301 

ASCIA* 

1117 

0304 

ASCID* 

1120 

0305 

ASCIE* 

1121 

0307 

ASCIG* 

1122 

0314 

ASCIL* 

1123 

0316 

ASCIN* 

1124 

0317 

ASCIO* 

1125 

0322 

ASCIR* 

1126 

0325 

ASCIU* 

1127 

0324 

ASCIT* 

1130 

0323 

ASCIS* 

1131 

0240 

SPACE* 

) 


/ 

AC3 

0016 


ADC 

0315 


ADCFLG 

7746 


ADCL 

6530 


ADCSMP 

0340 
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to) L/$rt m 3 % cp%c+(*e\fe4s t*, &*s,c 

5 7^UUF<b66> 1 --—----X.' 

10 GOSUB £00 \REM INITIALIZE 
15 IF Z=lt30 TO 750 
20 REM REGELLUS . 

25 A=UUF<302> 

30 FOR 19=1 TO T5 
40 E3=E2\E2=E1\E1=E 
50 GOSUB 380 \REM ADC 
60 G1=<UUF<10)-100)/411*100 ’ 

70 IF Gl>bGO TO 80 \G1=0 
80 IF G1<100G0 TO 100 
100 E=G-G1 
110 REM REGELAARS 
120 GOSUB 510 \REM PID REGELAAR 

130 GOSUB 410 \REM DAC 

140 GOSUB 470 \REM DATA OPSLAG __ 

150 A=UUF<4> 

160 IF A<1G0 TO 150 
165 A=UUF(3) 

’0 NEXT 19 

P 5 PRINT "GRAFIEK PRINTEN<0=JA)■l\INPUT Y 
I -176 IF YOOGO TO 190 

O' 177 PRINT *0M DE HOEVEEL SE* UITVOER * > \INPUT 17 

180 GOSUB 640 \REM UITVOER 

190 A=UUF(3)\A=UUF < 0)\REM ALLES SCHOON ACHTERLATEN 

191 STOP 

200 REM INITIALIZE 
210 I=0\P=0\DIM U(500) 

215 PRINT ’WAT WILT U? DDC(O) OF SPC<1)•IXINPUT Z 

216 IF Z=1G0 TO 370 

220 PRINT *PID REG(O)rZONDER ANTI REWINDfl)rSMOOTH DIFF<2)'I 

230 INPUT S 

231 GO TO 240 

235 PRINT "WAAROM DOE JE NIET WAT ER STAATTfNOGMAALS' 

240 PRINT 'SETPOINT(0 < G < 100 *>•IXINPUT G 
250 IF G<10QG0 TO 260 \G0 TO 240 
260 IF G>OGO TO 270 \G0 TO 240 
270 PRINT 'VERSTERKING*'IXINPUT K 
280 PRINT *TAU INTI "IXINPUT T1 
,290 PRINT "TAU DIF* ■ IXINPUT T2 ... 

300 PRINT 'SAMPLE TIJDI•IXINPUT T3 
310 IF T3=.5G0 TO 340 
320 IF T3=5G0 TO 340 
330 T3=l 

340 PRINT 'HOEVEEL SECONDEN REGELEN(MAX.500)■IXINPUT T5 * 

350 IF T5<500G0 TO 360 XPRINT 'DAN MAAR 500 SEC.!!I!I I I!*\T5> 

355 T5=T5/T3 

360 A=UUF(T3)\REM KLOK AAN MET GEKOZEN INTERVAL 
366 A=UUF(302> 

370 RETURN 
380 REM ADC 

390 A=UUF<6)\REM BEMONSTEREN ALLE KANALEN 
400 RETURN 
410 REM DAC 

420 IF V<iOOGO TO 430 \V=100 
430 IF V>OGO TO 440 \V=0 
440 V1«V/100*20+100 

!-450 A1=UUF<VI) __ _ 

460 RETURN 
470 REM DATAOPSLAG 
480 X1«I9*T3 
490 U(X1)=G1 
500 RETURN 

510 REM PID REGELAAR 


Vv 


'500 


_ *70 _ 



























520 I=I+E*K*T3/T1 

530 IF S=1G0 TO 560 

540 IF KiOOGO TO 550 \I=100 

550 IF I>OGO TO 560 \I=0 

560 D=E-Ei 

570 IF SO2G0 TO 580 \D=<E-E3+3*El-3*E2>/6 

580 D=D*K*T2/T3 

590 IF DCjOOGO TO 600 \D=100 

600 IF D>rlOOGO TO 610 \D=-10O 

610 P=K*E 

620 V=P+I+D 

630 RETURN ., _ 

640 REM UITVOER 

650 PRINT \PRINT ’UITVOER RESULTATEN’ 

660 PRINT •TIJD<SEC») , JTAB<G*54/100)f"S.P.=*>GP'%• 
680 FOR 18=0 TO T5 STEP 17 
685 I6=INT(U(18)) 

690 PRINT I8>TAB(I6«60/100)f'**116 
700 NEXT |I8 
710 RETURN 

750 PRINT 'WELK SETP0INT?(0<S<100)*>\INPUT L 
•755 A=UUF<5) 

760 A=UUF(300) 

770 A=UUF <301) _ _ 

780 IF L<100G0 TO 790 \L=100 
790 IF L>OGO TO 800 \L=0 
800 L1=L/100*20+200 
810 A2=UUF(LI) 

820 A=UUF<6) 

830 A=UUF(10) 

840 A4=(A-100)/411*100 

850 PRINT A5>TAB(A4*60/100)?INT(A4) 

860 A5=A5+1 
865 A=UUF<3) 

870 A=UUF<4> 

880 IF A<1G0 TO 870 
890 GO TO 820 
1000 A=UUF (,6) 

1010 FOR K=10 TO 11 
1020 PRINT UUF<K )f 
i030 NEXT KXPRINT 
10AO GO TO 1000 
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